home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / pdf_draw.ps < prev    next >
Encoding:
Text File  |  1997-03-06  |  9.2 KB  |  364 lines
  1. %    Copyright (C) 1994, 1995, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_draw.ps
  19. % PDF drawing operations (graphics, text, and images).
  20.  
  21. % We don't handle the following PDF elements yet (identified by
  22. % page number in the reference manual):
  23. %    style strings (63-64), except in a few known fonts
  24. %    font descriptor resources (71-75), except for MissingWidth
  25. %    text clipping modes (104)
  26. %        What do these mean??
  27.  
  28. % We handle the following PDF 1.2 constructs:
  29. %    gs operator (but not functions)
  30.  
  31. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  32. .currentglobal true .setglobal
  33. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  34. GS_PDF_ProcSet begin
  35. pdfdict begin
  36.  
  37. % For simplicity, we use a single interpretation dictionary for all
  38. % PDF graphics operations, even though this is too liberal.
  39. /drawopdict 100 dict def
  40.  
  41. % ================================ Graphics ================================ %
  42.  
  43. % ---------------- Graphics state management ---------------- %
  44.  
  45. drawopdict begin
  46.             % Graphics state stack
  47.   /q { q } def
  48.   /Q { Q } def
  49.             % Graphics state setting
  50.   /cm { cm } def
  51.   /i { i } def
  52.   /J { J } def
  53.   /d { d } def
  54.   /j { j } def
  55.   /w { w } def
  56.   /M { M } def
  57.   /gs { gs } def
  58. end
  59.  
  60. /gsparamdict mark
  61.   /Type { pop }
  62.   /SA { /setstrokeadjust 1 # }
  63.   /OP { /setoverprint 1 # }
  64.   /BG
  65.    { dup /Identity eq
  66.       { pop { } /setblackgeneration 1 #
  67.       }
  68.       {        %****** DUMMY ******
  69.     pop
  70.       }
  71.      ifelse
  72.    }
  73.   /UCR
  74.    { dup /Identity eq
  75.       { pop { } /setundercolorremoval 1 #
  76.       }
  77.       {        %****** DUMMY ******
  78.     pop
  79.       }
  80.      ifelse
  81.    }
  82.   /TR
  83.    { dup /Identity eq
  84.       { pop { } /settransfer 1 #
  85.       }
  86.       {        %****** DUMMY ******
  87.     pop
  88.       }
  89.      ifelse
  90.    }
  91.   /HT
  92.    { dup /Default eq
  93.       { pop /.setdefaultscreen 0 #
  94.       }
  95.       {        %****** DUMMY ******
  96.     pop
  97.       }
  98.      ifelse
  99.    }
  100.   /HTP { oget aload pop /sethalftonephase 2 # }
  101. .dicttomark readonly def
  102. /gs            % <gsres> gs -
  103.  { Page /ExtGState rget
  104.     {  { oforce exch gsparamdict exch .knownget { exec } { pop } ifelse }
  105.       forall
  106.     }
  107.    if
  108.  } bdef
  109.  
  110. % ---------------- Color setting ---------------- %
  111.  
  112. /csgray            % <op> <csop> csgray -
  113.  { /DefaultGray Page /ColorSpace rget
  114.     { 3 -1 roll exch 3 1 roll }
  115.    if pop cvx exec
  116.  } bdef
  117. /csrgb            % <op> <csop> csrgb -
  118.  { /DefaultRGB Page /ColorSpace rget
  119.     { 3 -1 roll exch 3 1 roll }
  120.    if pop cvx exec
  121.  } bdef
  122. /cscmyk            % <op> <csop> cscmyk -
  123.  { pop cvx exec
  124.  } bdef
  125. /csresolve        % <csresource> csresolve <colorspace>
  126.  { dup Page /ColorSpace rget
  127.     { exch pop resolvecolorspace }
  128.     { /undefined cvx signalerror }
  129.    ifelse dup type /nametype ne { dup length 1 eq { 0 get } if } if
  130.  } bdef
  131. /cset        % <c0> ... [- <sc1> - <sc3> <sc4>] <colorspace> cset -
  132.  { gsave setcolorspace mark currentcolor counttomark
  133.    grestore dup 2 add 1 roll cleartomark get exec
  134.  } bdef
  135.  
  136. %**************** sc and SC don't work, because the color space information
  137. %**************** isn't available at conversion time.
  138. drawopdict begin
  139.   /g { /g { cs sc1 } csgray } bdef
  140.   /rg { /rg { cs sc3 } csrgb } bdef
  141.   /k { /k { cs sc4 } cscmyk } bdef
  142.   /cs { csresolve cs } bdef
  143.   /sc { { null sc1 null sc3 sc4 } FillColorSpace cset } bdef
  144.   /G { /G { CS SC1 } csgray } bdef
  145.   /RG { /RG { CS SC3 } csrgb } bdef
  146.   /K { /K { CS SC4 } cscmyk } bdef
  147.   /CS { csresolve CS } bdef
  148.   /SC { { null SC1 null SC3 SC4 } StrokeColorSpace cset } bdef
  149. end
  150.  
  151. % ---------------- Paths ---------------- %
  152.  
  153. drawopdict begin
  154.             % Path construction
  155.   /m { m } def
  156.   /l { l } def
  157.   /c { c } def
  158.   /v { v } def
  159.   /y { y } def
  160.   /re { re } def
  161.   /h { h } def
  162.             % Path painting and clipping
  163.   /n { n } def
  164.   /S { S } def
  165.   /s { s } def
  166.   /f { f } def
  167.   /f* { f* } def
  168.   /B { B } def
  169.   /b { b } def
  170.   /B* { B* } def
  171.   /b* { b* } def
  172.   /W { W } def
  173.   /W* { W* } def
  174. end
  175.  
  176. % ---------------- XObjects ---------------- %
  177.  
  178. /xobjectprocs mark        % <dict> -proc- -
  179.   /Image { DoImage }
  180.   /Form { DoForm }
  181. .dicttomark readonly def
  182.  
  183. /ncompdict mark
  184.   /DeviceGray 1
  185.   /CalGray 1
  186.   /DeviceRGB 3
  187.   /CalRGB 3
  188.   /Lab 3
  189.   /DeviceCMYK 4
  190.   /CalCMYK 4
  191. .dicttomark readonly def
  192. /defaultdecodedict mark
  193.   /DeviceGray [0 1] readonly
  194.   /CalGray 1 index
  195.   /DeviceRGB [0 1 0 1 0 1] readonly
  196.   /CalRGB 1 index
  197.   /Lab
  198.    { 0 100 2 index 1 get /Range .knownget not { {-100 100 -100 100} } if
  199.      aload pop 6 array astore readonly
  200.    } bind
  201.   /DeviceCMYK [0 1 0 1 0 1 0 1] readonly
  202.   /CalCMYK 1 index
  203. .dicttomark readonly def
  204. /resolvecolorspace    % <cspace> resolvecolorspace <cspace>
  205.  { dup type /arraytype eq
  206.     { dup 0 get /Indexed eq
  207.        { dup 3 oget dup type /stringtype eq
  208.       { pop
  209.       }
  210.       {    % The color lookup table is a stream.
  211.         % Get its contents.
  212.         true resolvestream
  213.         1 index 2 get 1 add
  214.         ncompdict 3 index 1 get
  215.           dup type /arraytype eq { 0 get } if get mul
  216.         string readstring pop
  217.         1 index 3 3 -1 roll put
  218.       }
  219.      ifelse
  220.        }
  221.       if
  222.     }
  223.    if
  224.  } bdef
  225. /DoImage
  226.  { dup length dict
  227.    1 index /ColorSpace knownoget
  228.     { resolvecolorspace
  229.       dup type /arraytype eq { dup length 1 eq { 0 get } if } if
  230.       exch begin /ColorSpace exch def
  231.     }
  232.     { begin
  233.     }
  234.    ifelse
  235.    /ImageType 1 def
  236.         % Always define ImageMask appropriately.
  237.    dup /ImageMask knownoget dup { and } if
  238.      /ImageMask exch def
  239.    /Width 2 copy oget def
  240.    /Height 2 copy oget def
  241.    /BitsPerComponent 2 copy oget def
  242.    /Decode 2 copy knownoget not
  243.     {        % Decode is required for the PostScript image operators.
  244.       ImageMask
  245.        { [0 1]
  246.        }
  247.        { ColorSpace dup type /arraytype eq { 0 get } if dup /Indexed eq
  248.       { pop [ 0 1 BitsPerComponent bitshift 1 sub ] }
  249.       { defaultdecodedict exch get exec }
  250.      ifelse
  251.        }
  252.       ifelse
  253.     }
  254.    if def
  255.    /Interpolate 2 copy knownoget { def } { pop } ifelse
  256.    /ImageMatrix Width 0 0 Height neg 0 Height 6 array astore def
  257.         % Define DataSource as the width of the row buffer,
  258.         % which is what is needed if we're writing PostScript.
  259.    /DataSource 
  260.      Width BitsPerComponent mul
  261.      ImageMask not { Decode length 2 idiv mul } if
  262.      7 add 8 idiv
  263.    def
  264.         % Even though we're going to read data,
  265.         % pass false to resolvestream so that
  266.         % it doesn't try to use Length (which may not be present).
  267.    false resolvestream /Is_stream exch store
  268.    currentdict end ID
  269.  } bdef
  270. % Redefine Is, which constructs the data source for the image,
  271. % to retrieve the stream.  (pdf_2ps.ps redefines Is to copy the data too.)
  272. userdict /Is_stream null put
  273. /Is        % <imagedict> Is <imagedict> <datasource>
  274.  { Is_stream
  275.  } bdef
  276.  
  277. /DoForm
  278.  { dup [ /pop load 2 index
  279.     { false resolvestream pdfopdict .pdfrun }
  280.    aload pop ] cvx /PaintProc exch put
  281.    execform
  282.  } bdef
  283.  
  284. drawopdict begin
  285.   /Do
  286.     { PDFfile fileposition exch
  287.       dup Page /XObject rget not { /undefined cvx signalerror } if
  288.       exch pop dup /Subtype get xobjectprocs exch get exec
  289.       PDFfile exch setfileposition
  290.     } bdef
  291. end
  292.  
  293. % ---------------- In-line images ---------------- %
  294.  
  295. % Undo the abbreviations in an in-line image dictionary.
  296. % Note that these can appear as keys, values, or members of array values.
  297. % /I is ambiguous; we check specially for it below.
  298. /unabbrevdict mark
  299.     % Top-level dictionary keys
  300.   /BPC /BitsPerComponent  /CS /ColorSpace  /D /Decode  /DP /DecodeParms
  301.   /F /Filter  /H /Height  /IM /ImageMask  /W /Width
  302.     % Values
  303.   /AHx /ASCIIHexDecode  /A85 /ASCII85Decode  /CC /CalCMYK
  304.   /CCF /CCITTFaxDecode  /CG /CalGray  /CR /CalRGB
  305.   /DCT /DCTDecode  /CMYK /DeviceCMYK  /G /DeviceGray  /RGB /DeviceRGB
  306.   /I /Indexed  /LZW /LZWDecode  /RL /RunLengthDecode
  307. .dicttomark readonly def
  308. /unabbrev        % <obj> unabbrev <obj'>
  309.  { dup type /nametype eq
  310.     { unabbrevdict 1 index .knownget { exch pop } if
  311.     }
  312.     { dup type /arraytype eq
  313.        { dup 0 1 2 index length 1 sub
  314.       { 2 copy get unabbrev put dup
  315.       }
  316.      for pop
  317.        }
  318.       if
  319.     }
  320.    ifelse
  321.  } bdef
  322.  
  323. drawopdict begin
  324.   /BI { mark } bdef
  325.   /ID
  326.     { counttomark
  327.        { counttomark 1 roll
  328.      dup /I eq { pop /Interpolate } { unabbrev } ifelse
  329.        }
  330.       repeat
  331.       /File PDFsource
  332.       .dicttomark DoImage
  333.       PDFsource token pop /EI ne { /ID cvx /syntaxerror signalerror } if
  334.     } bdef
  335. end
  336.  
  337. % ================================ Text ================================ %
  338.  
  339. drawopdict begin
  340.             % Text control
  341.   /BT { BT } def
  342.   /ET { ET } def
  343.   /Tc { Tc } def
  344.   /TL { TL } def
  345.   /Tr { Tr } def
  346.   /Ts { Ts } def
  347.   /Tw { Tw } def
  348.   /Tz { Tz } def
  349.             % Text positioning
  350.   /Td { Td } def
  351.   /TD { TD } def
  352.   /Tm { Tm } def
  353.   /T* { T* } def
  354.             % Text painting
  355.   /Tj { Tj } def
  356.   /' { ' } def
  357.   /" { " } def
  358.   /TJ { mark exch aload pop TJ } def
  359. end
  360.  
  361. end            % pdfdict
  362. end            % GS_PDF_ProcSet
  363. .setglobal
  364.